/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / AVOGADRO / SCIDISCS / DISC1 / MATTOCK / PROGS / AFIT

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 13 20 f4 20 50 | 52 4f 47 52 41 4d 20 41 |.... . P|ROGRAM A|
|00000010| 46 49 54 0d 00 14 1f 20 | f4 20 42 79 20 52 2e 4d |FIT.... |. By R.M|
|00000020| 61 74 74 6f 63 6b 73 2c | 20 46 65 62 2e 20 31 39 |attocks,| Feb. 19|
|00000030| 38 38 0d 00 1e 06 20 3a | 0d 00 28 06 20 3a 0d 00 |88.... :|..(. :..|
|00000040| 32 06 20 3a 0d 00 3c 06 | 20 3a 0d 00 46 06 20 3a |2. :..<.| :..F. :|
|00000050| 0d 00 50 06 20 3a 0d 00 | 5a 0f 20 eb 20 37 3a 43 |..P. :..|Z. . 7:C|
|00000060| 41 4c 43 3d 30 0d 00 64 | 25 20 20 e8 8a 33 2c 35 |ALC=0..d|%  ..3,5|
|00000070| 29 22 45 6e 74 65 72 20 | 74 69 6d 65 20 74 31 20 |)"Enter |time t1 |
|00000080| 20 20 20 20 20 20 22 3b | 54 41 0d 00 6e 24 20 20 |      ";|TA..n$  |
|00000090| e8 20 22 20 20 20 45 6e | 74 65 72 20 41 62 73 20 |. "   En|ter Abs |
|000000a0| 20 61 31 20 20 20 20 20 | 20 20 22 3b 58 41 0d 00 | a1     |  ";XA..|
|000000b0| 78 24 20 20 e8 20 22 20 | 20 20 45 6e 74 65 72 20 |x$  . " |  Enter |
|000000c0| 74 69 6d 65 20 74 32 20 | 28 3e 74 31 29 20 22 3b |time t2 |(>t1) ";|
|000000d0| 54 42 0d 00 82 24 20 20 | e8 20 22 20 20 20 45 6e |TB...$  |. "   En|
|000000e0| 74 65 72 20 41 62 73 20 | 20 61 32 20 20 20 20 20 |ter Abs | a2     |
|000000f0| 20 20 22 3b 58 42 0d 00 | 8c 2a 20 e8 27 22 45 6e |  ";XB..|.* .'"En|
|00000100| 74 65 72 20 61 6e 20 61 | 70 70 72 6f 78 2e 20 76 |ter an a|pprox. v|
|00000110| 61 6c 75 65 20 66 6f 72 | 20 27 61 27 20 22 3b 41 |alue for| 'a' ";A|
|00000120| 0d 00 96 0f 52 41 54 49 | 4f 3d 54 42 2f 54 41 0d |....RATI|O=TB/TA.|
|00000130| 00 a0 09 f2 63 61 6c 63 | 0d 00 aa 1c f1 27 22 20 |....calc|.....'" |
|00000140| 20 20 42 45 53 54 20 46 | 49 54 20 27 41 27 20 3d |  BEST F|IT 'A' =|
|00000150| 20 22 3b 41 0d 00 b4 06 | 20 3a 0d 00 be 06 20 3a | ";A....| :.... :|
|00000160| 0d 00 c8 06 20 e0 0d 01 | f4 0c 20 dd 20 f2 63 61 |.... ...|.. . .ca|
|00000170| 6c 63 0d 01 fe 21 20 43 | 41 4c 43 3d aa 28 41 2f |lc...! C|ALC=.(A/|
|00000180| 28 41 2d 58 42 29 29 2f | aa 28 41 2f 28 41 2d 58 |(A-XB))/|.(A/(A-X|
|00000190| 41 29 29 0d 02 08 1c 20 | f1 8a 35 2c 31 35 29 22 |A)).... |..5,15)"|
|000001a0| 74 32 2f 74 31 20 3d 20 | 22 3b 52 41 54 49 4f 0d |t2/t1 = |";RATIO.|
|000001b0| 02 12 21 20 f1 8a 35 2c | 31 37 29 22 43 61 6c 63 |..! ..5,|17)"Calc|
|000001c0| 2e 20 72 61 74 69 6f 20 | 3d 20 22 3b 43 41 4c 43 |. ratio |= ";CALC|
|000001d0| 0d 02 1c 39 20 e7 20 43 | 41 4c 43 3e 28 52 41 54 |...9 . C|ALC>(RAT|
|000001e0| 49 4f 2a 31 2e 30 30 31 | 29 20 41 3d 41 2a 31 2e |IO*1.001|) A=A*1.|
|000001f0| 30 30 30 35 3a e5 20 8d | 64 7e 41 3a f4 20 41 20 |0005:. .|d~A:. A |
|00000200| 74 6f 6f 20 73 6d 61 6c | 6c 0d 02 26 37 20 e7 20 |too smal|l..&7 . |
|00000210| 43 41 4c 43 3c 28 52 41 | 54 49 4f 2a 30 2e 39 39 |CALC<(RA|TIO*0.99|
|00000220| 39 29 20 41 3d 41 2a 30 | 2e 39 39 39 35 3a e5 20 |9) A=A*0|.9995:. |
|00000230| 8d 64 7e 41 3a f4 20 41 | 20 74 6f 6f 20 62 69 67 |.d~A:. A| too big|
|00000240| 0d 02 30 05 e1 0d ff    |                         |..0.... |        |
+--------+-------------------------+-------------------------+--------+--------+